I 


:X/198^/H0 



PERUSOSANA KESKUSYKSIKK5 JA MONITORI TAI TELEVISIO 
Kesku-yksikCssX 64 ktavua RAM-muistia ja ROM-muisti, jossa on 
BASIC-tulkki, 

KXyttXjXlle jXX 38911 tavua RAM-muistia, 


8 PERUSOSAA ON KYTKETTY VERKOKSI, JOHON ON LIITETTY 30 M/S KIRJOI- 
TIN JA 2 KPL 170 KTAVUN LEVYASEMAA, JOTKA OVAT VARAUSJXRJESTYK- 
SESSX KUNKIN KXYTTXjXN KXYTETTXVISSX, 



RETURN - nXppXin siirtXX tiedot koneelle ja palauttaa kursorin 



nXppXin antaa isot kirjaimet TAI nXppXimen toisen 

MERKITYKSEN 

nXppXintX kXytetXXn vXrien mXXrittXmiseen ja erikois- 

FUNKTIOIDEN MUODOSTAMISEEN 


RUN/STOP - nXppXin pysXyttXX koneen toiminnan, RUN/STOP ja 
SHIFT yhdessX lataavat ohjelman kasettinauhurista 


RESTORE - nXppXin palauttaa koneen normaalitilaan, kun tilaa 
ON MUUTETTU ESIM, CTRL-NXPPXlMELLX 

C - - nXppXimellX yhdessX SHIFT-nXppXimen kanssa saadaan 

VAIHTO NORMAALITILASTA ISOT KIRJAIMET/GRAF IIKKA- 
TILAAN TAI PXlNVASTOIN, SlTX KXYTETXXN MYOS MONI- 
TORIN VXRIEN MUUTTAMISEEN, 


Ohjelma: - Samalla rivinumerolla kirjoitetuista riveistX viimei- 
SIN JXX voimaan 

- PelkkX rivinumero + RETURN hXvittXX ko. numerolla 

VARUSTETUN RIVIN 


Teksti: - Kursoria siirretXXnT CRSR^ja <-CRSR— > nXppXimillX 
yhdessX SHIFT-nXppXimen kanssa 

- INST/DEL -nXppXimen painallus hXvittXX kursoria ennen 
olleen merkin 

- INST/DEL -nXppXimen painallus yhdessX SHIFT-nXppXimek 


KANSSA ANTAA TILAA TEKSTIN VXLIIN 

CLR/HOME -nXppXin siirtXX kursorin kuvaruudun oikeaan 
ylXnurkkaan 

CLR/HOME -nXppXin yhdessX SHIFT-nXppXimen kanssa tyh- 
jentXX kuvaruudun (Vrt, ohjelmassa 10 PRINT *CIR/H0ME 
SHIFT*) 



Valmisohjelmat talletetaan kalvolevyillX. KXytettXvissX on 
KAKS! LEVYASEMAA, NUMEROT 8 JA 9. 


1) Levy asemaan siten, ettX teksti on ylBspXin ja levyn aukko 

VASEMMALLA PUOLELLA, ASEMA SULJETAAN. 

2) Kirjoita LOAD *0HJ. NIMI\8 (tai 9) ja paina RETURN 

3) Kun vXytBllX lukee READY ja kursori vilkkuu, kirjoita RUN 
JA PAINA RETURN, TXllBin ohjelman ajo alkaa. 


1) Levy asetetaan levyasemaan ja asema suljetaan, 

2) Kirjoita SAVE *0HJ, NIMI*,8 (tai 9) ja paina RETURN 

3) Kun ilmestyy teksti OK ja READY, talletus on tehty 

Huqmaa t Saat ko, levyn ohjelmaluettelon nXytOlle, jos nXppXi- 
LET LOAD m l”. 8 (TAI 9), KIRJOITAT SITTEN LIST JA 
pa i nat RETURN, 

Ohjelman nimi saa olla korkeintaan 16 merkkiX, 
VERIFY-komennolla voit tarkistaa, onko ohjelman tal¬ 
letus onnistunut, Komennolla VERIFY *0HJ, NIMI*,8 

(TAI 9) KONE ETSII TALLETETUN OHJELMAN JA VERTAA SITX 
MUIST1SSA OLEVAAN. 



LIST KIRJOITTAA OHJELMAN nXYTBLLE 

LIST 10- KIRJOITTAA OHJELMARIVIT RIVISTX 10 LOPPUUN 

nXytDlle 

LIST 10 KIRJOITTAA RIVIN 10 NXYT5LLE 

LIST -10 KIRJOITTAA RIVIT ALUSTA RIVIIN 10 nXYTULLE 

LIST 10-20 KIRJOITTAA KO. VXLIN NXYTtJLLE 

CONT OHJELMAN AJOA JATKETAAN (PYSXHTYNYT END- 

tai STOP-kXskyihin tai pysXytetty RUN/STOP- 
nXppXimellX) 


RUN ajo alkaa 


5, Tiedqsioi 


PrpjiKxXisaAKENTElSTA T1ED0ST0A KXYTETTXESSX TARVITAAN KXSKYjX: 

OPEN A,B,C, *0:NIMI , tyyppi, toiminta* WU2 . 


A - tiedostono (kokonaisluku 1 ,,, 127 (255)) 

B - OHEI SLAITETYYPPI (8 TAI 9) 

C - KANAVANO (2 ,,. 14: KANAVAT 0 JA 1 VATATTU LOAD- JA 

SAVE-toiminnoille) 

NIMI - TIEDOSTOLLE ANNETTAVA NIMI 

tyyppi - tXssX yhteydessX SEQ tai S (Sequential) 

TOIMINTA - R - LUKU , W - KIRJOITUS 

EsiM, OPEN 2,8,2, * 0:TIET0,S,W* 





1 . 


Fsim . 10 INPUT A,B 
20 C * A+B 
30 PRINT C 
40 END 

- KaSKYISSA ENGLANNINKI ELISIA SANOJA/ MUUTTUJIA, erilai- 
SIA LASKUTOIMITUS- YM, MERKKEJA 

-Kaskynumero (rivinumero) aloittaa jokaisen kaskyn 

- Kaskyn pituus korkeintaan 1 rivi 

- RlVl/KASKYPlTUUS KONEKOHTA1NEN 

- Kaskyt voi kirjoittaa missa jarjestyksessa tahansa, 

MUTTA TOTEUTUS TAPAHTUU KASKYNUMEROIDEN JARJESTYKSESSA 

- UUSI SAMANNUMEROINEN KASKY TULEE VOIMAAN 

- PELKKA KASKYNUMERO TUHOAA KASKYN 

- Kaskynumerot kokonaislukuja 1,..9999 


- RiVIPITUUS 40 MERKKIA, KASKYPITUUS VOI OLLA 2 RIVIA 

- USEAMPIA PERAKKAISIA KASKYJA VOI KIRJOITTAA SAMALLE 
RIVILLE KAKSOISPISTEELLA EROTETTUINA 

2, Luvut 

Kaksi esitystapaa: desimaaliluvut 2,369. -78,462 

EKSPONENTTIMUOTO (10-POTENSSlMUOTO) 

3,46 E-4, -82,46 E21 


HuQMAA ; - LUVUISSA El SAA OLLA LASKUTOIMITUSTA 


VirheSRsia lukuja; 20/3 , -1.26 , E6 


Lukualue. laskutarkkuus ja tulostustarkkuus ovat konekohtaisia 

OMINAISUUKSIA, 

C 64 : LUKUALUE 1.70141183E+38...2,93873588E-38 

LASKUTARKKUUS 10 NUMEROA 
TULOSTUSTARKKUUS 9 NUMEROA 


MUUTTUJA ■ MUI ST I PAIKAN NIMI 

Kolme muotoa: tavalliset, merkkijono- ja indeksoidut muuttujat 

TaVALLISET MUUTTUJAT: TUNNUS YKSI KIRJAIN (A-Z) TAI YKSI KIRJAIN 

JA YKSI NUMERO (MAX, 286) 

Esim, A. A7, Z9 

Merkk i jonomuuttujat : Tavallisen muuttujan tunnuksen peraan 

LISATAAN %\ A2, Ml. Z92 

Indeksoidut muuttujat: Yksidimensioinen luettelo (A(l), BC148)) 

TAI KAKSIDIMENSIOINEN taulukko (A(3,8), 

B(124«16>), 

KOKORAJOITUKSET KONEKOHTAISIA 

Tavallisen muuttujan arvo ® luku (X * 2,78) 

Merkkuonomuuttujan arvo - merkkijono (A8 * "LU0KKA") 
Indeksoidun muuttujan arvo * luku (Z(9,24) a -19,1) 



C. 64: MUUTTUJAN TUNNUKSEN ENS1MMAINEN MERKKI AIN, TOINEN 

KIRJAIN TAI NUMERO, NlMESSA VOI MERKKEJA OLLA USEAMPIAKIN 
MUTTA KONE HUOMIOI VAIN 2 ENSIMMAISTA (PARTNO B PA) 

Neljas muuttujatyyppi on kokonaislukumuuttujA/ jossa taval 

LI SEN MUUTTUJAN TUNNUKSEN PERAAN LISATAAN Zi JOS ANNAT XZ 
4,68/ SAA XZ ARVON 4, 


Esimerkki 

A+B+C 
A-B9 
A*B*2 
A/B2 
A3TZ6 

Laskutoimitusten suoritusjarjestysj 

1, Sulut (aloitetaan sisimmista) 

2, NE6ATIIVISEN luvun etumerkki (-A) 

3, POTENSSIINKOROTUS 

4, KERTO- JA JAKOLASKUTi SAMANARVOISET # VASEMMALTA OIKEALLE 

5, YhTEEN- JA VAHENNYSLASKU: " * " 

HnQMAA : KaHTA LASKUTOIMITUSMERKKIA El SAA OLLA PERAKKAIN 



VertaiS 


Symbooli 

Tarkoitus 


Esimerkki 

SM 

YHTA SUURI KUIN 


A 7 - B1 

< 

PIENEMPI KUIN 


A<Z7 

> 

SUUREMPI KUIN 


X9>K 

< = 

PIENEMPI TAI YHTX 
KUIN 

SUURI 

X* = A3 

> = 

SUUREMPI TAI YHTA 

KUIN 

SUURI 

L5 >= C 

< > 

ERISUURI KUIN 


A< >B 


Esimerkkeja LAUSEKKEISTA! 
ALGEBRALLINEN LAUSEKE 

5x(-a) 

2a+5 

x n+1 y 

ab/(cd) 

^ITr 3 


BASIC-kielinen vastine 

5*X*(-A) tai -5*X*A 

2*A+5 

XT(N+1)*Y 

A*B/(C*D) tai A^B/C/D 
4*3.14159*Rt3/3 


C 64 : Kolme loogista operaattoria: AND/ OR/ NOT 
A AND B Tosi/ jos A ja B tosia 

A OR B Tosi, jos A tai B tosia 

NOT A Tosi/ jos A epatosi 


5, Funktuqi 

Funktio BASICsssa Selitys Ehtoja 


SIN(X) 


SINX 


X RADIAANEINA 



C0S(X) 

COSX X ^^IAANEINA 

TAN(X) 

TANX X RADIAANEINA 

ATN(X) 

ARC TAN X 

L0G(X) 

LN X X>0 

EXP(X) 

E X 

SQR(X) 

X 

IV 

o 

ABS(X) 

1 X | 

INT(X) 

SUURIN KOKONAISLUKU, JOKA i X 

RND(X) 

SATUNNAISLUKU 0<LUKU<1. X!N ARVOLLA El 
yleensA ole merkitystA (on OLTAVA JOKU ARVO) 

SGN(X) 

+1, jos X>0 

0/ jos X = 0 

-1, jos X<0 


VOIDAAN mAARITELLA MYOS OMIA FUNKTIOITA KASKYLLA DEFFNA(X)* ... , 

JOSSA 01KEAN PUOLEN MUUTTUJANA ESI INNYTTXvX X, A'.N PAIKALLA VOI 
OLLA KIRJAIN A - Z, FUNKTIOTA KAYTETAAN MYOHEMMIN KUTEN BASIC- 
FUNKTIOITA MUODOSSA FNA(X), 

HiiOMAA ; INT-FUNKTIOLLA VOIDAAN LUKU PYORISTAA HALUTTUUN TARK“ 
KUUTEENi 

JOILLAKIN KONEILLA (MYi)S C 64;LLA) ON ERAlTX OMIA ERIKOISFUNKTIOITA, 

f fill : DEFFNA(X): A:n tilalla voi olla 2 merkkiA 
RND(X): jos X * 0, saadaan aina sama luku 

JOS X< 0/ SAADAAN AINA SAMA LUKUJONO 


6, Kaskx^ 


Antaa ARVON MUUTTUJALLE (MUISTIPAIKALLE), LET VOIDAAN jAttXX 


10 LET A * 3,2*B+C tai 10 A b 3,2*B+C 


HiiOMAA i Yhtasuuruusmerkin vasemmalle puolelle vain muuttujan 


Vain yksi yhtAsuuruusmerkki sallittu (konekohtainen) 


INPUT j Kysytyt muuttujan arvot sy&tetXXn pXXtteeltA pilkuilla 

EROTETTUINA# VIIME ISEKSI PAINETTAVA RETURN-NXPPXINTX 

10 INPUT A,B,C 
20 INPUT X5,KS 

c 64 ■ KAskyyn voi liittAA selittAvAA tekstiA lainausmerkeissA, 
perAssA puolipiste; 

10 INPUT "KIRJ0ITA NIMESI";A2 
20 INPUT "ANNA $0STUSI";X 

READ-DATA: Muuttujan arvot ovat valmiina ohjelman DATA-lauseiss 
Arvot siirretAan DATA-lauseiden jArjestyksessA DATA- 
REKlSTERI IN JA LUETAAN SIELTX TS, READ- JA DATA-LAU- 
SEIDEN MUODON JA LUKUMXArXn El TARVITSE VASTATA TOI- 


SIAAN, 



Samassa DATA-lauseessa voi yleen”olla seka lukuja 

ETTA MERKKIJONOJA, MeRKKIJONOT ON YLEENSA SYYTA 
PANNA LA INAUSMERKKE1HIN, 


10 READ A,B 
20 READ C2 
30 READ X,Y,Z,K2,S 

100 DATA 3.2,5,"KI$$A",-6,4E7,11 
110 DATA 47.2/HlIRr,-16 

Huomaa : Jos edelliseen ohjelmaan sijoitetaan kasky 105 RESTORE/ 
SIIRTAA se DATA-osoittimen DATA-rekisterin alkuun ja 
Z:lle luetaan arvo 3,2 

C fff ; MERKKIJONOT PANTAVA DATA-LAUSEISSA LAINAUSMERKKEIHIN 
VAIN/ JOS SISALTAVAT VALILYONNIN/ PILKUN TAI KAKSOIS- 
P1STEEN, 


TULQSTAA MUUTTUJAN ARVOJA (100)/ TEKSTIA (200)/ LASKUTOIMITUS- 
TEN TULOKSIA (300)/ EDELLISTEN YHDISTELMIA (400) TAI AIHEUTTAA 
RIVIS11RRON (500): 


100 PRINT A/B/K2 
200 PRINT "HYVAA PAIVAA" 

300 PRINT X*ArZ +5,6*A 
^400 PRINT "SALOO ON"; M*X+P 
500 PRINT 


Tul”uksen muotoilu: 


TULOSTUSKENTTA ON JAETTU VYOHYKKEISIIN, PlLKKU SIIRTAA TULOS- 
TUKSEN SEURAAVAN VYOHYKKEEN ALKUUN/ PUOLIPISTE AIHEUTTAA SEU- 
RAAVAN TULOSTUKSEN HETI EDELLISEN PERAAN: 

PRINT A/B/CS/X => 3,2 - ^4.9 LUKU 6,7 

PRINT A;B;C2;X => 3.2-^4.9LUKU6,7 (koneesta riippuen valiin 

VOI JAADA TYHJAA 1-2 MERKKIA) 


6.^4. 


TULOSTUSTA VOIDAAN MUOTOILLA MYOS TAB-FUNKTIOLLAz JOKA SIIRTAA 
KURSORIN FUNKTION MUUTTUJAN ARVON KOHDALLE: 

100 PRINT TAB(7);X;TAB(14);Y 

Huqmaa : Tietokonetta voi kayttaX laskukoneena, silla PRINT 

ILMAN rivinumeroa tulostaa siihen merkityt laskutoimi- 

TUKSET 

LM: PRINT-sana voidaan korvata kysymysmerkillX 

NXYTbSSX ON PILKKUA KXYTETTXESSX NELJA 10 MERKIN 
LEVYISTA VYbHYKETTA 


KONE El KXSITTELE KXSKYX LAINKAAN/ JOTEN SILLA VOI ANTAA OHJEIT 


10 REM HARJ0ITUS NO 1: LASKETAAN SEURAAVASTI 
20 REM ANNA ENSIN ,,, 



OHJELMAN SUORITUS PYSAHTYY TULTAESSA RIVILLE, JOSSA ON: 

JOKO END TAI STOP, SlIOR ITUKSEN JATKAMINEN VAATII KONEKOHTA1- 
SEN KOMENNON, 

Esim. 140 END TAI 140 STOP 


HuQMAA : OHJELMAN SUORITUS PYSAHTYY MYOS PAINETTAESSA RUN/STOP- 
NAPPAlNTA, SUORITUSTA JATKETAAN C0NT-KOMENNOLLA SIITA, 

MIHIN PYSAHDYTTIIN, „ 

i0 ptLiUl"^' 

10 /oo 

M0 fi/UOT ''toi-HZ" 

Eucqioh hyppy 

MO CnoTO 

Esi.'.i 200 GOTO 30 wo 

LJ” * fcoej' 

Kounz 

KASKYYN TULTAESSA KONE JATKAA KASKYYN MERKITYSTA RIVINUMEROSTA, 




Esim, 10 INPUT X 

20 ON X GOTO 50/70,20/170 


Jos X - 1/ SIIRRYTAAN MAINITUISTA KASKYISTA 1,:EEN 
- " - 2, - * - - " - 2,:een jne, 


Jos X - 0/ NEGATIIVINEN TAI SUUREMPI KUIN MAINITTUJEN RIVIEN 
MAArA, JATKETAAN JARJESTYKSESSA SEURAAVASTA KASKYSTA, 


HuQMAA : X:N TILALLA VOI OLLA LASKUTOIMITUS, JONKA ARVO TALLtilN 
PYdRISTETAAN KOKONAISLUVUKSI, 


C 6 if r Negatiivinen X:n arvo aiheuttaa virheilmoituksen, 



GOTO 

Muoto: rno IF ehto THEN rno tai kAsky 


Jos EHTO ON TAYTETTY (TOSl)/ HYPAtAAN MAArATTYYN RIVINUMEROON 
TAI TOTEUTETAAN ANNETTU KASKY 

JOS EHTO ON EPATOSI, JATKETAAN SEURAAVASTA KASKYSTA 


Esim, 100 INPUT "ANNA POSIT, LUKU";A 
110 IF A> 3 0 THEN 140 
120 PRINT "ANNOIT NEGAT. LUVUN" 
130 GOTO 100 
140 ,,, 


Huqmaa ; Toteutettavana kAskynA ei voi olla FOR, NEXT, DEF, 
DATA TAI REM 


C 64 : END ei yleensA voi olla toteutettavana kAskynA, mutta 
C 64: llA kAy 10 IF X = 0 THEN END 


1 uii.-x.it,, jiuu . 

Q/oi-ttGc, ^ 

valjSSS o(avJ&M- s(*o*Q£fli 

Muoto: 100\F0R X - A TO B STEP C 
lSO^NEXT X 



A,B,C VO I VAT OLLA LAUSEKKE ITA • C LISATAAN £a K IERROKSELLA 
EDELLISEEN X:N ARVOON A:N ARVOSTA LAHTIEN, KUN XsN ARVO YLIT- 
TAX (AL1TTAA, JOS C<0) B:N ARVON/ SILMUKAN KIERTO PAATTYY« 
SAMANLAINEN SILMUKKARAKENNE VOIDAAN SAADA AIKAAN MYtiS IF KAS- 
KYLLA JA KIERROSLASKURILLA: 


100 FOR L - 1 TO 10 
110 PRINT L 
120 NEXT L 
130 END 


100 L - 1 
110 PRINT L 
120 L - L+l 

130 IF L< = 10 THEN 110 
mo END 


Huqmaa i Sisakkaiset silmukat 


mo FOR X - ... 
150 FOR Y - ... 

210 NEXT Y 
220 NEXT X 


OlKEIN 


mo FOR X = .,, 
150 FOR Y « 

210 NEXT X 
220 NEXT Y 


Vaar m 


LM: Jos A on B: a suurempi (pienempi) C:n ollessa positiivi- 
nen (negatiivinen), ei silmukkaa yleensa kierretX ker- 

TAAKAAN , C 64iSSA SILMUKKA KUITENKIN TOTEUTETAAN AINA 
VAHINTAANKIN KERRAN, 


MlJOTOi RNO G0SUB RNO 


Hyp™an maXratylle ALIOHJELMARIVILLE JA RETURN-kaskyyn TULfA- 
ESSA PALATAAN 60SUB-KASKYA SEURAAVAAN KASKYYN, 

Muoto: rno ON A 60SUB rno 1# rno 1, ... 

Haarautuva aliohjelmakasky, toimii kuten ON A GOTO ,,, 


Esim , 

100 PRINT "0HJELMA TUL0STAA" 
110 FOR L = 1 TO 500 
120 NEXT L 

130 PRINT "TEKSTIN HITAASTT 
mo FOR L - 1 TO 500 
150 NEXT L 

160 PRINT "TEHDEN AIKAVIIVEEN" 
170 FOR L - 1 TO 500 
180 NEXT L 

190 PRINT "SILMUKALLA" 


100 PRINT *0HJELMA TULOSTAA* 
110 GOSUB 180 

120 PRINT -TEK-TIN HITAASTI* 
130 GOSUB 180 

mO PRINT "TEHDEN AIKAVIIVEEN" 

150 GOSUB 180 

160 PRINT "SILMUKALLA* 

170 STOP 

180 FOR L - 1 TO 500 
190 NEXT L 
200 RETURN 


Huqmaa ; Aliohjelmassa VOI OLLA USEita RETURN-kaskyjX, 
Aliohjelmasta VOI hypXtX toiseen aliohjelmaan, 



- MUOTO LUVUSSA 3sLUETTELO A(N)# TAULUKKO A(M # N) 





INDEKSIN ALARAJA 0 (JOILLAKIN TIETOKONEILLA ^ INDEKSINA 
VOI OLLA LAUSEKE/ JOLLOIN SEN ARVO PYCJRISTETAAN ALASPAIN KOKO“ 
NA1SLUVUKSIi 

JOS TAULUKON ALKIOIDEN MAARA YLITTAA KONETYYPISTA RIIPPUVAN 
RAJAN/ ON TAULUKOLLE VARATTAVA TILAl 

10 DIM A(200)/B(Z)#K(30/5) 

LMi JOS TAULUKOSSA ON YLI 11 ALKIOTA/ TILA ON VARATTAVA, 
SUURIN ALKIOMAARA ON 32767, 

C 64jn BASIC :ssa hyvaksytaAn myos useampia kuin kaksi 

INDEKSIA, 

My0s KOKONAISLUKU- TAI MERKKIJONOMUUTTUJA VOI OLLA 
INDEKSOITU, 

HuflMAA; Taulukon VOI dimensioida vain kerran, Silti voidaan 

KO, TAULUKOLLE KAYTTAA ERI DIMENS IOITA MYUHEMMINz JOS El 
YLITETA MAARITELTYA ALKIOIDEN KOKONAISMAARAA, 

8. fcaKKIJQNQT 


MerkkT^onovakio: AS - "KISSA" 

SlJOITUS-/ LUKU- ja tulostuskAskyt yleensX kuten muillakin 
MUUTTUJILLA J 

10 AS - "KISSA" => ? HI IREN 

20 READ B S KISSA SOI HI IREN 

30 INPUT CS 
40 DATA SOI 
50 PRINT AS,BS,CS 

MONISSA KONEISSA (El C 64) VOIDAAN MERKKIJONOJA TAI NIIDEN OSIA 
VERTAILLA KESKENAXN IF , ,, THEN -KASKYLLA, MERKKIJONOFUNKTIOT 
JA JONOJEN KASITTELYKASKYT OVAT KONEKOHTAISIA, 

C 64 ; JOS MERKKIJONON PITUUS YLI 11 MERKK lX/ ON TILA VARATTAVA, 
MERKKIJONOJEN OPERAATTORI ON +J 

10 AS = "MERKKI":BS = "NIMI" 

20 NAME * AS+BS (= "MERKKIJ0N0") 

30 RES8 = "UUSI "+AS+BS (- "UUSI MERKKIJ0N0") 


Muotoj A S, ASS, Z7S ovat merkkijonomuuttujia 

MERKKIJONOMUUTTUJALLE ON VARATTAVA TILA DIM-KASKYLLA KONEKOHTAI- 
SESTA PITUUDESTA LAHTIEN! 10 DIM A2(70)/A58(15) 

Useimmi ssa BASIC-versioissa merkkijonomuuttu ja ei voi olla indek 
soitu (C 64;ssa voi), 


Merkkijonofunktiot: 


ASC(XZ) 

ASC("A") 

CHRB(X) 

LEFT2(X2,X) 

LEN(XS) 

MID2CX2/S/X) 


ANTAA XSs 1. MERKIN ASCI I-KOOD1N 

antaa A: n ASCI I-koodin 

ANTAA MERKIN/ JONKA ASCI I-KOODI ON X 

ANTAA MERKKIJONOSTA XS VASEMMALTA X MERKKI) 

ANTAA XS:N MERKKIEN LUVUN 

ANTAA X2:STA X MERKKIA SsNNESTA MERKISTA 


ALKAEN 




RIGHTZ(XZzX) ANTAA MERKKl JONOSTA XiWOlKEANPUOLE ISTA 
MERKKIA 

STRSCX) MUUTTAA LUKUJONON X MERKKlJONOKSI 

VAL(XZ) MUUTTAA MERKKlJONOA XZ LUVUKSI VASEMMALTA 

ALKAEN NIIN KAUAS KUIN SIINA ON NUMEROITA 


Esim, 


10 AS - "SIENIPIIRAS" 


20 BZ - LEFTZ(AZ,2) 


30 CZ = MIDZ(AZ,8,3) 


i)0 DZ - MIDZ(AZ,6,1) 


50 EZ = MIDZ(AZ.6.2) 


60 XZ - BZ+CZ+DZ+EZ 

( = SIIRAPPI) 

10 X - VAL(*123.i)56') 

X * 123,456 

10 X - VAL C"12A13B") 

CM 

H 

II 

X 

10 X - VAL C "ABCD125") 

X 

D 

O 


9, Muita C 64:N BASIC: N PHRIEIJA 

CLR - Kasky nollaa kaikki.muistissa olevat muuttujat, 

SUOR1TETAAN AUTOMAATTISESTI RUN-KOMENNON YHTEYDESSX: 

10 X - 25 

20 CLR (X - 0) 

FRE(X) - FUNKTIO KERTOO KAYTTAMATTCMAN MUISTIN MAARAN TAVUISSA, 
X:N ARVOLLA El OLE MERKITYSTAi 2000 X = FRE(7) 


GET ^ 

- KASKY OTTAA MERKIN NAPPAIMISTOLTA, 

Esim. 10 GETAZ:IFAZ - ""THEN 10 

POKE 

- KASKYLLA SIJOITETAAN MUISTIPAIKKAAN 0 ... 65535 KOKO- 

NAISLUKU 0 ... 255 

PEEK 

- FUNKTIOLLA HAETAAN EO, LUKU, 

10 POKE 53281/0 Tarvitaan saadettaessa aantX 

20 X - PEEK (53281) tai kuvaruudun vareja 

P0S(X) 

- FUNKTIO ILMOITTAA SEURAAVAN PRINT-LAUSEEN TULOSTUS- 

sarakkeen: 120 IF P0S(0)>65 THEN PRINT "El MAHDU" 

SPC(X) 

- FUNKTIOLLA SAADAAN TILAA TULOSTETTAVIEN VALIIN 

X MERKKIA: 10 PRINT SPCC5) "TILAA" SPC(10) "JAI" 

TI 

- FUNKTIO ANTAA AJAN KONEEN KAYNNISTYKSESTA LUKIEN 

1/60-sekunteina: 

10 PRINT TI/60 "SEKUNTIA KAYNNISTYKSESTA" 

TIZ 

- MERKKIJONOFUNKTIOLLA VOIT MITATA AJAN KULUA SEKUN- 

TEINA: 

1 TIZ - "000000";FORJ = 1 TO 10000: NEXT-.PRINT TIZ 

USR(X) 

- FUNKTIOLLA KONE HYPPAA KONEKIELISEEN OHJELMAAN, 

JONKA ALKUOSOITE ON TUNNETTU. 

WAIT 

- KASKYA KAYTETAAN PYSAYTTXmXaN KONEEN TOIMINTA/ KUNNES 

TIETYT EHDOT ON TAYTETTY 



SYS - KASKYN PERASSA ON NUMERO 0 6553”jOSTA OSOITTEESTA 
LAHTIEN OHJELMA SUORITTAA JONKIN KONEKIELISEN OHJELMAN 
(VASTAA USR-FUNKTION KAYTTO/0 


10, EsiMEfiKKIQHJ&LMlA 

1) RAHANHEITTO 100 KERTAA: 

100 FOR L = 1 TO 100 

110 IF RND(1)<•5 THEN X = X*1 

120 GOTO m 

130 Y - Y+l 

WO NEXT L 

150 PRINT "KLAAVOJEN MAARA = "X 
160 PRINT "KRUUNUJEN MAARA - "Y 

2) Annettujen lukujen keskiarvo 

10 READ N,S 

20 L - 1 

30 READ A 

40 L ■ L+l 

50 S - S+A 

60 IF L<N THEN 30 

70 PRINT "KESKIARVO ON"; S/N 

80 DATA 5,3,4/5,6/7 

90 END 


3) Ohjelma laskee varaston arvon, kun tunnetaan tuotteiden 
maarXt ja hinnat (15 tuotetta) 

10 REM VARASTON ARVO 
20 A * 0 

30 FOR I - 1 TO 15 
40 INPUT M/H 
50 A - A+M*H 
60 NEXT I 

70 PRINT "VARASTON ARVO ON";A 
80 END 

4) Ohjelma laskee m myyjXn kokonaismyynnit, kun myytAvina on 

N TUOTETTA JA TUNNETAAN HINTA/KPL, 

5 INPUT "ANNA MYYJIEN JA TUOTTEIDEN MAARAT";M,N 
10 FOR I - 1 TO N 
20 READ PCI) 

30 NEXT I 
40 FOR I = 1 TO N 
50 FOR J - 1 TO M 
60 READ SCI/J) 

70 NEXT J 
80 NEXT I 
90 FOR J = 1 TO 5 
100 S - 0 

110 FOR I - 1 TO 3 
120 S - S+P(I)*S(I,J) 

130 NEXT I 



140 PRINT "MYYNTIMIEHEN";J;"MYYNTI ON";S/J 
150 NEXT J 
800 DATA ... 

2000 END 


5) Ohjelma laskee shekkitilin saldon 


10 REM-SHEKKITILIN SALDO 

20 INPUT "ANNA EDELLINEN $ALDO:",A 

30 INPUT "ANNA KIRJOITTAMIESI SHEKKIEN LUKU",B 

40 60SUB 180 

50 A - A-X 

6i X - 0 

70 PRINT 

80 INPUT "ANNA TILILLEPANOJEN MAARA",B 
90 60SUB 180 
100 A - A+X 
110 PRINT 

120 IF SGN(A) - -1 THEN PRINT "OLET YLITTANYT TILISI" 
130 PRINT "TAMANHETKINEN SALDO ON";A 
m STOP 

180 REM-ALIOHJELMA 

190 FOR I - 1 TO B 

200 INPUT " MAARA? MK",Y 

210 X “ X+Y 

220 NEXT I 

230 RETURN 

240 END 



